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] Gestión de 
== ficheros 


N fichero es una par- 
te de un disco o de 
una cinta donde se 
graban los datos que 
un programa tiene al- 
macenados en algu- 
nas de sus variables, 
mediante unas ins- 
trucciones específicas, y al que puede 
acceder otro programa o el mismo, me- 
diante otras instrucciones, para leer los 
datos grabados. 

Los ficheros pueden ser de dos tipos: 
secuenciales o de acceso directo. Noso- 
tros nos vamos a centrar en los ficheros 
secuenciales por ser los que se utilizan 
normalmente. 


Ficheros secuenciales 


Un fichero secuencial es aquel en el 
que los datos deben leerse en el mismo 
orden en que se grabaron y comenzan- 
do siempre por el primero. 

Los ficheros se estructuran en registros. 
Un registro está constituido por todos los 
datos que se graban de una sola vez (en 
una misma instrucción). Cada instrucción 
que ejecute un programa para grabar 
datos en un fichero secuencial, creará un 
nuevo registro en éste, justo a continua- 
ción del último que grabo. 


REGISTRO REGISTRO REGISTRO 
Fig. 1. 


En la figura 1 podemos ver una posible 
estructura de un fichero secuencial con 
tres registros con distintos datos en cada 
uno. 


Apertura de un fichero 


En todos los programas en los que se 
vaya a utilizar un fichero, antes de reali- 
zar cualquier operación sobre él se debe 
ejecutar la instrucción OPEN (abrir), que 
indica al ordenador el fichero que vamos 
a usar y sus características. 

Las características que se suelen espe- 
cificar al abrir un fichero son las siguien- 
tes: 

— Tipo de fichero: secuencial o de ac- 
ceso directo. 

— Modo para el que se abre el fiche- 
ro: lectura de datos o grabación de da- 
tos. 

— Número del fichero: todos los fiche- 
ros utilizados en un mismo programa de- 
ben llevar un número de identificación. 

— Nombre del fichero: es el nombre 
con el que el fichero se graba en el dis- 
co o la cinta. Si hay varias unidades de 
disco o cinta hay que especificar, ade- 
más del nombre, la unidad donde se en- 
cuentra el disco o la cinta donde se al- 
macena el fichero deseado. 


Veamos a continuación los formatos de 
la instrucción OPEN en los distintos orde- 
nadores: 

AMSTRAD 


El AMSTRAD no permite utilizar en un 
programa más de un fichero secuencial 
simultáneamente. A dicho fichero le aso- 
cia siempre el número 9. Las instruccio- 
nes de apertura son: 


OPENIN “nombre” 
para leer los datos grabados en él, y: 
OPENOUT “nombre” 
para grabar datos en él. 
COMMODORE 
El formato es: 
OPEN n.* de fichero, 1, modo, “nombre” 


El 1 que aparece a continuación del n.* 
de fichero indica que es de tipo secuen- 
cial. 

En modo pondremos O (inicial de Out- 
put) si abrimos el fichero para grabar da- 
tos e | (inicial de Input) si el fichero se 
abre para leer datos. 

Por ejemplo, la instrucción: 


OPEN, 1,1,0, “AGENDA” 

indica que se abre el fichero número 1, 
denominado “AGENDA”, para grabar da- 
tos en él. 
IBM 

El formato es: 
OPEN “modo”+*n.* de fichero, “nombre” 

El significado de cada parámetro es el 
mismo que en el COMMODORE, pero 
ademas disponemos del modo “A”, que 
permite abrir un fichero ya existente para 


añadirle nuevos datos. 
El ejemplo anterior para IBM seria: 


OPEN “O”, 41, “AGENDA” 


MSX 
El formato es el siguiente: 
OPEN “nombre” FOR modo AS n.* de fiche- 
ro 
El ejemplo anterior sería: 
OPEN “AGENDA” FOR O ASTO 1 


SPECTRUM 


El SPECTRUM sólo permite la gestión de 
ficheros en microdrive (pequeñas cintas 
“sin fin” que trabajan de forma similar a 
los discos). El formato de apertura es: 


OPEN £n.* de fichero; “M”; n.? de micro- 
drive; “nombre” 


El número de fichero debe ser mayor o 
igual que 4. La “M” indica la utilización 
del microdrive. El número de microdrive 
estará comprendido entre 1 y 8, ya que 
podemos utilizar hasta ocho microdrives 
simultáneamente. 


El ejemplo anterior sería ahora: 
OPEN +4;“M”;1;"AGENDA” 


' Cierre de un fichero 


Cuando hayamos terminado de reali- 
zar todas las operaciones que se hagan 


en un programa con un fichero, debemos 
cerrarlo con la instrucción CLOSE. De no 
hacer esta operación podemos encon- 
trarnos con problemas de que los datos 
no queden grabados correctamente. 

Veamos los formatos de CLOSE en los 
distintos ordenadores: 


AMSTRAD 


El formato es: 
CLOSEIN 
si cerramos un fichero abierto con OPE- 
NIN, y 
CLOSEOUT 


si cerramos un fichero abierto con OPE- 
NOUT. 


COMMODORE, IBM, MSX y SPECTRUM 


El formato es: 
CLOSE X*n.* de fichero 


Por tanto, en nuestro ejemplo tendre- 
mos que escribir: 


CLOSE 1 
excepto en el SPECTRUM, que será: 
CLOSE +4 


Grabación de datos 
en un fichero 


Para grabar datos en un fichero se- 
cuencial se utiliza la instrucción: 


PRINT An.” de fichero, <lista de varia- 
bles> 


La lista de variables puede contener 
variables numéricas y/o alfanuméricas 
separadas unas de otras por punto y 
coma (;). 

Cuando un programa ejecuta una ins- 
trucción PRINT+, crea un nuevo registro 
en el fichero especificado, formado por 
todos los datos contenidos en la lista de 
variables. 

Por ejemplo: 


PRINTA+1,A$;BS;C 


Graba un registro en el fichero núme- 
ro 1, compuesto por dos datos alfanumé- 
ricos y uno numérico. 
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Lectura de datos 
de un fichero 


La lectura de datos de un fichero se 
puede efectuar de varias formas, sin em- 
bargo, la instrucción más típica es IN- 
PUT+. Esta instrucción lee un registro com- 
pleto de un fichero cada vez que se eje- 
cute en un programa. Sin embargo, de- 
bemos tener en cuenta que para que IN- 
PUT4 lea los datos de un registro éstos de- 
ben estar separados por comas; por tan- 
to, cuando grabemos varios datos para 
leerlos posteriormente con INPUT ten- 


dremos que grabar entre medias de ellos 
una coma. Por ejemplo: 


PRINTA+1,AS;",”;:BS;“,”:C 
El formato para INPUTA es el siguiente: 


INPUT Xn.* de fichero, <lista de varia- 
bles> 


En este caso las variables deben ir se- 
paradas por comas. Además, deben ser 
del mismo número y del mismo tipo que 
las utilizadas para grabar los datos. 

Ya podemos ver un ejemplo de mane- 
jo de ficheros. El programa 1 controla el 
stock de diez artículos diferentes de un 
almacén. 


REM. ARALAR EEE EEE AAA AEREA 


REM * CONTROL DE STOCK DE UN ALMACEN * 
REM REEL AEREA 


DIM AC10> 

CLs 

PRINT TAB(17>;"OPCIONES" 

PRINT TAB(17>;" E 

PRINT ¿PRINT 

PRINT "1. 
PRINT "2. 
PRINT "3, 
PRINT "4, 
PRINT *S, 
PRINT ". TERMINAR" 
PRINT ¿PRINT :PRINT 


INICIALIZAR STOCK DE CADA PRODUCTO" 

CAMBIAR STOCK DE UN PRODUCTO" 

VISUALIZAR STOCK DE TODOS LOS PRODUCTOS" 
GRABAR STOCK DE CADA PRODUCTO EN UN FICHERO” 
LEER DEL FICHERO EL STOCK DE CADA PRODUCTO" 


PRINT "PULSA LA OPCION DESEADA” 
LET Ré=INKEY*: IF Ré="" THEN GOTO 170 
IF ASC(R$)<49 OR ASC(R$)>59 THEN GOTO 170 


CLS 
LET R=VALCR$> 


ON R GOSUB 1000,2000,3000,4000,5000 


IF R<>6 THEN GOTO 50 
END 
FOR I=1 TO 10 


PRINT "STOCK DEL PRODUCTO "51; 


INPUT ACI> 
NEXT 1 
RETURN 


INPUT “NUMERO DEL PRODUCTO DEL QUE HA HABIDO CAMBIO";P 
INPUT "CAMBIO DE STOCK CON SU SIGNO"¿C 


ACP)=ACPI)+C 
RETURN 
FOR I=1 TO 10 


PRINT "STOCK DEL PRODUCTO "¡1;"="; ACI) 


NEXT 1 
PRINT :¿PRINT :¿PRINT 


PRINT "PULSA UNA TECLA PARA CONTINUAR" 
LET Té=INKEY*: IF T*="" THEN GOTO 3050 


RETURN 

OPEN *0*,8$1 ,“"STOCK" 
FOR I=1 TO 10 

PRINT — $1,Ac1> 

NEXT 1 

CLOSE +H1 

RETURN 

OPEN "1" ,$2,"STOCK" 
FOR I=1 TO 10 

INPUT $2,4c1> 

NEXT 1 

CLOSE $2 

RETURN 


El programa ha sido realizado en un 
IBM; sin embargo, resulta muy fácil adap- 
tarlo a cualquier otro ordenador con lo 
explicado hasta ahora. 


' Programas en dispositivos 
de almacenamiento externo 


Cuando hacemos un programa impor- 
tante es conveniente grabarlo en un dis- 
co o una cinta, pues, de lo contrario, 
cuando apaguemos el ordenador se 
borrará de la memoria y si queremos uti- 
lizarlo en otra ocasión tendremos que te- 
clearlo de nuevo. 

La instrucción para grabar programas, 
tanto en disco como en cinta, es SAVE y 
tiene el siguiente formato general: 


SAVE “nombre del programa” 


Normalmente el nombre del programa 
no puede tener más de ocho o nueve ca- 
racteres y por regla general no se admi- 
ten signos ni espacios en blanco. Si tene- 
mos varias unidades de disco o cinta ten- 
dremos que especificar delante del nom- 
bre la unidad en la que queremos gra- 
bar. Por ejemplo: 


SAVE “A:NUMEROS” 


grabará en la unidad A el programa lla- 
mado NUMEROS. 

Por otra parte, para cargar en la me- 
moria del ordenador un programa que 
tengamos grabado en un disco o una 
cinta disponemos de la instrucción LOAD 
con el siguiente formato: 


LOAD “nombre del programa” 


Al igual que sucedía con SAVE, si tene- 
mos varias unidades de disco o cinta ten- 
dremos que especificar la unidad deseada. 


N este capítulo final 
veremos algunos 
ejemplos más com- 
plejos como resumen 
de todo lo tratado an- 
teriormente. 


Programa 1: Copiar zonas 
== de memoria 


Este programa puede copiar un área 
de memoria en otra zona. Esto suele usar- 
se para realizar rutinas de animación; és- 
tas copian diferentes imágenes en la 
pantalla, una tras otra, en rápida suce- 
sión para dar impresión de movimiento. 

La dirección donde están los datos vie- 
ne dada por COMI y donde los deja en 
DEST. El número de Bytes a mover está en 
LONG. 

Lo primero que realiza el programa es 
la inicialización de los registros a usar 
con los valores adecuados: COMI en HL, 
DEST en DE o LONG en BC. 

Tras esto comienza el bucle principal. 
Si el registro BC es cero, o HL se hace 
igual a DE, la ejecución termina. Si HL es 
mayor que DE, la sección se copia me- 
diante la instrucción LDIR. 

Si DE es mayor que HL, se añade BC-1 a 
ambos pares de registros y se copia me- 
diante la subrutina CDR. 


; PROGRAMA PARA COPIAR ZONAS DE 


MEMORIA 


.280 
EQU 
EQU 
EQU 
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SPECTRUM, AMSTRAD, MSX 


'O Programa 2: Buscar 
en memoria un patrón 


La utilidad de este programa consiste 
en buscar en otro programa, o en la ROM, 
algunas instrucciones cuya dirección de- 
seamos determinar. 

Las variables usadas son PRINC, que 
marca el principio de la zona en donde 
buscar el patrón; LONG nos indica la lon- 
gitud del patrón y PATDIR donae está; por 
ultimo, BINDIR nos dará la dirección del 
resultado de la búsqueda. 

Al igual que el programa anterior, co- 
mienza con la inicialización de los valo- 
res a usar en los registros adecuados: HL 
con PRINT, E con LONG y PATDIR en BC. 
Tras esto comprueba si la longitud del 
patrón no es cero. Salva el registro HL en 
la pila del sistema y comienza a compa- 
rar el valor de la dirección indicada por 
HL con la indicada por BC. Si éste es el 
mismo, procede a saltar a BINGO, pues 
los patrones parecen coincidir. Si son di- 
ferentes, se extrae HL de la pila y se in- 
crementa en uno para repetir el proceso. 

Los registros DE y HL se salvan en la pila; 
HL se carga con BINDIR y DE con LONG, 


restándose DE de HL para ver cuál sería 
la dirección más alta en que podría em- 
pezar el patrón, incrementándose para 
dar la máxima dirección donde no está 
el patrón dado. 

Esta dirección se carga en HL y se saca 
de la pila el antiguo valor de DE. Si el re- 
sultado es cero, se carga BC con la máxi- 
ma dirección posible (65535) para indi- 


e. pres e. ur” -. .. .. e. —. 


HL, PRINC 
BC¡PATDIR 
AE 


+0 


HL 
HL ,BINDIR 
D,40 


HL, DE 
DE, HL 


DE 
NZ,REINI 
BC,65535 


BINGO: D 
A,D 


NZ,SIGUE 
BC 


SIGUE: HL 


Programa 3: Buscar 
" y reemplazar 


Este programa busca todas las apari- 
ciones de un patrón en la memoria y lo 
reemplaza por otro de igual longitud 
dentro de un programa. 

Como en los anteriores, carga los regis- 
tros con los valores a usar: HL, con la di- 
rección del programa, y el acumulador 
con la longitud del patrón; se realiza a 
otra copia del acumulador en E para uso 


car que no ha habido éxito y regresa; de 
no ser cero, va a REINI para repetir el bu- 
cle principal. 

El BINGO se comprueba si todos los ca- 
racteres del patrón coinciden con los de 
la memoria y de ser así se extrae BC de 
la pila y regresa; en caso de no coincidir 
totalmente, se incrementan HL y BC, re- 
gresando el bucle principal por COMP. 


BUSCA EN MEMORIA UN PATRON DADO 


O DE ZONA A EXPLORAR 
ERO_DE BYTES DEL PATRON 


N 
ONTRADO 


¿TOPE DE MEMORIA 


posterior. Si la longitud es cero, finaliza la 
rutina. Se prepara HL para que apunte al 
comienzo de la primera línea y entra en 
el bucle principal por RESET. 

COMPRU incrementa el contenido de 
HL para apuntar el dato siguiente y lo 
compara con DE para ver si ha acabado. 

Se carga el acumulador A con el si- 
guiente dato y lo compara con el carác- 
ter de “Retorno de Carro” o “ENTER” para 
saltarse los números de línea, cinco ca- 
racteres. 
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En RESET copia en BC la dirección de la 
cadena buscada y se inicializa D con 
cero para ver el número de caracteres 
de la cadena hallada. Tras esto, regresa 


cide en toda su longitud con el dato; de 
no ser así, vuelve al bucle COMPRU. 

Si coinciden totalmente los patrones 
realiza la sustitución por el nuevo valor 


a COMPRU. 


COMPARA ve si el patrón hallado coin- 


". 


en el bucle SIG CAR. Al acabar en FIN co- 
mienza la búsqueda de las siguientes 
apariciones en RESET. 


: BUSCA EN MEMORIA Y REEMPLAZA 
y DIREN EQU 23296 
DI E 23635 
LONG EDU 23298 
NUEVADIR EÓU 23299 
AREAVAR EQU 23627 
PRINCI EQU 1000H 
BRINCI: LD IX, DIREN 
LD HL/DIR 
LD A,LONG 
LD E/A 
CP 10 
RET 
DEC HL 
OTRA: INC HL 
INC HL 
INC HL 
INC HL 
JR RESET 
COMPRU: INC L 
PUSH 
LD DE,AREAVAR 
AND 
SBC HL,DE 
ADD HL, DE 
POP 
o. A, (HL) 
YA 
CP z 
JR ¿OTRA 
RET ¿VUELTA AL BASIC 
DEC HL 
RESET: PUSH IX 
POP BC 
LD Ds $2 
JR CÓMPRU 
COMPARA: LD A,(BC) 
CP (1 
JR NZ RESET 
INC BC 
INC D 
LD A,C 
CP 
JR NZ ,COMPRU 
PUSH HL 
LD D,0 
AND A 
SBC HL ,DE 
LD D 
LD BÉ ,NUEVADIR 
INC D 
SIGCAR: INC HL 
DE D 


Definidor de 
gráficos para 


EMOS visto en algu- 
nos tomos de esta co- 
lección programas 
para definir caracte- 
res y SPRITES en los dis- 
tintos ordenadores 
que contemplamos. 
Como en el IBM no se 
pueden definir caracteres, pero sí pode- 
mos definir y almacenar una pequeña 
zona de la pantalla y moverla como si de 
un SPRITE se tratase, proponemos el si- 
guiente programa para todos aquellos 
que necesiten definir figuras y gráficos 
para sus programas. 

Con este programa podemos definir 
cualquier gráfico que tenga como máxi- 
mo 19 x 40 puntos. Una vez definido po- 
demos almacenarlo o imprimirlo. Para 
ello contamos con una serie de-coman- 
dos disponibles desde las teclas de fun- 
ción. Estos son: 


PROGRAMA: DEFINIDOR DE GRAFICOS 


PROGRAMAS 
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Fl. Nos permite grabar el gráfico en 
formato interno. Si grabamos el gráfico 
con esta opción, cuando necesitemos 
modificarlo, o terminarlo, pulsando la op- 
ción F3 podemos leerlo y visualizarlo en 
pantalla. Este formato de grabación no 
es muy útil al programador. 

F2. Nos graba el gráfico que hemos 
definido como una sucesión de números 
que se encuentran en unas líneas DATA. 
Podemos elegir qué número han de tener 
dichas líneas DATA. Esta opción se utiliza 
para que el usuario no tenga que teclear 
dichas DATA y para que realizando un 
simple MERGE entre su programa y el fi- 
chero creado, disponga del gráfico defi- 
nido. 

F3. Con esta opción podemos leer un 
fichero que contiene la definición de un 
gráfico y que nosotros hemos grabado 
anteriormente con la opción Fl. 

F4. Nos permite imprimir en impresora 
las líneas DATA con la sucesión de núme- 
ros que nos definen un gráfico. Podemos 
elegir el número de líneas por el que 
queremos que empiecen dichas líneas. 

F9. Terminamos la sesión de edición y 
salimos del programa. 


OOO OIOOIOIOSISlOlS SOS” lE lol l]jojoJOIOJOK 


D-E E IN 15D 07R. “DE 


PARA 1. 


* 
k 
* 
* 
* 


GRAFICOS 


od 


MOSSOS OOOO OSO SOS” OSOS lll” lOlOJOJOK 


EOS 
* Programa escrito por: * 
* + 
* Fco. Morales Guerrero * 
EOS 
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1140 REM ddRsRaSMRIROIS EMIR lSIOlSISlOISIPlEjSlSSlSlSlSlSlSldIOJOK: 
1150 REM 
1160 REM 
1170 REM 
1180 REM 
1190 REM 
1200 REM dSRSSdSIS IRIS SSP SIS ISlSlS SISSI lSldlOlOK: 

1210 REM 

1220 REM Adol ldO Old lolOjOOIOlOK 

1230 REM xx*x* INSTRUCCIONES *x*x 

1240 REM deRSRMRIRdlSlPlPlSISldlSlSPlSIPJEJAK 

1250 REM 

1260 KEY OFF» 

1270 SCREEN 2 

1280 WIDTH 80 

1290 CLS 

1300 PRINT TAB(30);"DEFINIDOR DE GRAFICOS" 

A E RA AAA AAA 

1320 PRINT 

1330 PRINT 

1340 PRINT " Usa las teclas del cursor (8,2,4,6) para moverte por la parrilla." 
1350 PRINT 

1360 PRINT " Pulsa la barra espaciadora para encender o apagar un punto. " 

1370 PRINT 

1380 PRINT " Pulsa Fl para grabar lo definido en formato interno. " 

1390 PRINT 

1400 PRINT " Pulsa F2 para grabar lo definido como lineas DATAS. " 

1410 PRINT 

1420 PRINT " Pulsa F3 para leer un grafico ya definido desde disco. " 

1430 PRINT 

1440 PRINT " Pulsa F4 para imprimir el grafico como lineas DATA." 

1450 PRINT 

1460 PRINT " Pulsa F9 para salir del programa." 

1470 PRINT 

1480 PRINT " Solo puede definirse un grafico cada vez." 

1490 PRINT 

1500 PRINT 

1510 PRINT " PULSA UNA TECLA PARA COMENZAR" 

1520 LET A$=INKEYS$ 

1530 IF A$="" THEN GOTO 1520 

1540 REM 

1550 REM dsRSSSSS SS ld SO lSjdlOlSjololOJak 

1560 REM *x*x* ENTRADA DE DATOS x*xx*x 

1570 REM dad SMS lS OSOS lSlSlSl”lOlOjoJOK 

1530 REM 

1590 CLS 

1600 PRINT TAB(30);"DEFINIDOR DE GRAFICOS" 

LOMA UND AAC RO)  ioS 

1620 PRINT 

1630 PRINT 

1640 PRINT " Cual va a ser la altura del grafico? (Maximo 19). " 


(c) Ediciones Siglo Cultural 


(c) 1987. 


kAXA OR 
KA AAA 


1650 PRINT 

"1660 INPUT " ===> ",H 

1670 TF H<1 OR H>19 THEN PRINT:PRINT "VALOR NO VALIDO":GOTO 1650 
1680 PRINT 


1690 PRINT 
1700 PRINT " Cual va a se la anchura del grafico? (Maximo 40). " 


1710 PRINT 

1720 INPUT "===> ",L 

1730 IF L<1 OR L>40 THEN PRINT:PRINT "VALOR NO VALTDO":GOTO 1710 
1740 REM 


1750 REM PRRSISlOSS a lSlOlOlSlOldlOlOlOjOJOK 
1760 REM **x* INICIALIZACION x*Yxx 
1770 REM ASdRRSSPRISlSldlSISIOlOlSOlOJOJOIOK 
1780 REM 


1790 
1800 
1810 
1820 
1330 
1840 
1850 
1360 
1870 
1380 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2080 
2070 
2080 


1550 den 
FOR 1=1- 10 9 
3 
NEXT I 
ON KEY(1) COSUR 25 
ON KEY(2) GOSU» 2840 
ON KEY(3) GOSUB 3220 
ON KEY(4) GOSUB 3770 
ON KEY(9) GOSUB 4150 
FOR I=1 TO 9 
KEY(I) ON 
NEXT T 
DIM AX(2x*L) 
GET(0,0)-(L,H), AX 
REM 
REM oO SIS ISO MISS IlJIlSllJllloloalolllaleljojolojok 
REM *x*xx*x DIBUJO DE LA PARRILLA Y DE LA PANTALLA xxx 
REM ARA A RA AR te eee orto 
REM 
CLS 
FOR I=1 TO H 
FOR J=1 TO L 
PRINT CHR$(254); 
NEXT J 
PRINT 
NEXT J 
COLOR: 001 
T,TNE(O, 133)-(639,191),,BF 
LOCATE 24,1 
PRINT "F1---SAVE FORMATO INTERNO F2---SAVE COMO DATA F3---LOAD F4---PRI 


NT — F9---FIN"; 


2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 


r 
nc 

J 

oo 


9 09 $MN 


N 
0D (0 Ny 

0D : 

o 


ty 


COLOR ,,0 

LINE (400,0)-(410+L, 10+H1),,B 
LET X1=405 

LET Y1=5 

LET X2=X1+L 

LET Y2-Y1+H 

LET X-1 

LET Y=1 


) REM 
O REM ARGOS SISI lol Olololojolor 


REM +*x* PROGRAMA PRINCIPAL. xoex 


DO REM RR ROO ORO RIODIOIDIOIOOK 


REM 
2 LET A$=INKEYS 
IF A$=" " THEN GOTO 2440 
LET DX=0 p 
LET DY=0 
IF LEN(A$)-=2 THEN LET A$=MID$(A$, 2,1) 


IF A$=CHR$(77) THEN LET DX=1:LET DY=0 

IF A$-CHR$(75) THEN LET DX=-1:LET DY=0 
IF A$=CHR$(72) THEN LET DY=-1:LET DX=0 
IF A$=CHR$(80) THEN LET DY=1:LET DX=0 

LET C=POINT(X1+X, Y1+Y) 

IF C=1 THEN LOCATE Y,X:PRINT CHR$(219) 
IF C=0 THEN LOCATE Y,X:PRINT CHR$(254) 
Y=Y+DY 

X=X+DX 

IF X>L THEN LET X=L 

IF X<1 THEN LET X=1 

IF Y>H THEN LET Y=5H 

IF Y<1I THEN LET Ys1 

LOCATE Y,X 

PRINT,":” 

GOTO 2220 
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2430 GET (0,0)-(L,H),A% 

2440 REM 

2450 REM dReRadNSIS OSO ESOO SES jSldlS ISSO” lolOlOIOK 
2460 REM * FIJACION Y BORRADO DE PUNTOS x*xx 
2470 REM SS SMS IS SSlSS lO lOlS SOS jSlO al” l”lSj”lO lO lSlOlSlolOlOJOK 
2480 REM 

2490 LET C=-POINT(X1+X, Y1+Y) 

2500 LET C=-NOT C 

2510 PSET(X1+X, Y1+Y),C 

2520 GET(X1,Y1)-(X2, Y2), AX 

2530 IF C=0 THEN LOCATE Y,X:PRINT CHR$(254) 
2540 IF C=1 THEN LOCATE Y,X:PRINT CHR$(219) 
2550 GOTO 2220 

2560 GOTO 2560 

2570 REM 

2580 REM addSaSSlSlElE SS lElE Olla lElO lalala jodo la jojolok 
2590 REM x*x*x* SAVE EN FORMATO INTERNO x**x 
2600 REM adSaRSSlS OSOS jSlSlO Olla lO lala j”lolalajolololojok 
2610 REM 

2620 KEY(1) STOP 

2630 LINE(O, 159)-(639,167), BF 

2640 LOCATE 21,29 

2650 COLOR ,,1 

2660 PRINT “SAVE EN FORMATO INTERNO" 
2670 COLOR ,,0 

2680 GOSUB 4470 : REM PETICION DE NOMBRE 
2690 LET N$=N$+".GRP" 

2700 LOCATE 22,1 

2710 PRINT SPACE$(80) 

2720 LOCATE 22,1 

2730 PRINT “GRABANDO CON FORMATO INTERNO: 
2740 OPEN N$ FOR OUTPUT AS 1 

2750 PRINT 1,L 

2760 PRINT $1,H 

2770 FOR I=0 TO 2*L 

2780  PRINTS1,A%(I) 

2790 NEXT 1 

2800 CLOSE +1 

2810 GOSUB 4560 : REM FIN DE FUNCION 
2820 KEY(1) ON 

2830 RETURN 

2840 REM 

2850 REM AdddSdddOlO Sada lO lSlSlSlSlSlSlOl”JaK 
2860 REM *xx* SAVE COMO LINEAS DATA *xx 
2870 REM Add lao lalala lolo jajajajaja lololololalak 
2880 REM 

2890 KEY(2) STOP 

2900 LINE(O, 159)-(639,167),,BF 

2910 LOCATE 21,28 

2920 COLOR ,,1 

2930 PRINT "SAVE COMO LINEAS DATA" 

2940 COLOR ,,0 

2950 GOSUB 4470 : REM PETICION DE NOMBRE 
2980 T.FT N%$-N*+" RAS” 

2970 OPEN N$ FOR OUTPUT AS $1 

2980 LOCATE 22,1 

2990 PRINT SPACE$(80) 

3000 LOCATE 22,1 

3010 INPUT "DESDE QUE LINEA ==> “;LI 
3020 LOCATE 22,1 

3030 PRINT SPACE$(80) 

3040 LOCATE 22,1 

3050 PRINT "GRABANDO COMO LINEAS DATA: ";N$ 
3060 PRINT 81,LI;"DATA";L;",";H 

3070 LET LI=LI+10 


3080 FOR I=0 TO 2*L STEP 10 

3090 PRINT $1,LI;"DATA"; 

3100 N=8 

3110 IF 1+9>2*L THEN LET N=2*L-I-1 
3120 FOR J=1 TO I+N 
3130 PRINT $1,AX(J);","; 

3140 NEXT J 

3150 PRINT $1, AX(J) 

3160 LET LI=LI+10 

3170 NEXT 1 

3180 CLOSE +1 

3190 GOSUB 4560 : REM OPERACION TERMINADA 
3200 KEY(2) ON 

3210 RETURN 

3220 REM 

3230 REM ASSSSSOSS SS SOS aa jajajaa lajajaololojlojojek 
3240 REM *x*x* LOAD EN FORMATO INTERNO *xx*x* 
3250 REM AaSdSlO OSOS SBS SHE lO OlojojO OK 
3260 REM 

3270 KEY(3) STOP 

3280 LINE(O, 159)-(639,167), BF 

3290 LOCATE 21,29 

3300 COLOR ,,1 

3310 PRINT "LOAD EN FORMATO INTERNO” 
3320 COLOR ,,0 

3330 GOSUB 4470 : REM PETICION DE NOMBRE 
3340 LET N$=N$+".GRP" 

3350 LOCATE 22,1 

3360 PRINT SPACE$(80) 

3370 LOCATE 22,1 

3380 PRINT "CARGANDO CON FORMATO INTERNO: "N$ 
3390 OPEN N$ FOR INPUT AS $1 

3400 ERASE A% 

3410 INPUT +$1,L 

3420 INPUT +$1,H 

3430 DIM AX(2X*L) 

3440 FOR I=0 TO 2XxL 

3450 INPUT $81, A%(1) 

3460 NEXT 1 

3470 CLOSE $1 

3480 LOCATE 22,1 

3490 PRINT SPACE$(80) 

3500 LOCATE 22,1 

3510 PRINT “ESPERE UN MOMENTO" 

3520 FOR I=1 TO 19 

3530 LOCATE 1,1 

3540 PRINT SPACE$(80) 

3550 NEXT I 

3560 LOCATE 1,1 

3570 FOR I=1 TO H 

3580 FOR J=1 TO L 

3590 PRINT CHR$(254); 

3600 NEXT J 

3610 PRINT 

3620 NEXT 1 

3630 LINE(400, 0)-(410+L, 10+H),,B 

3640 LET X2=X1+L 

3650 LET Y2=Y1+H 

3660 PUT(X1,Y1), A% 

3670 FOR I=1 TO H 

3680 FOR J=1 TO L 


3690 IF POINT(X1+J,Y1+1)=1 THEN LOCATE 1,J:PRINT CHR$(219) 
3700 NEXT J 
3710 NEXT I 


3720 LET X=1 
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3730 
3740 
3750 
3760 
3770 
3780 
3790 
3800 
3810 
3820 
3830 
3840 
3850 
3860 
3870 
3880 
3890 
3900 
3910 
3920 
3930 
3940 
3950 
3980 
3970 
3980 
3990 
4000 
4010 
4020 
4030 
4040 
4050 
4060 
4070 
4080 
4090 
4100 
4110 
4120 
4130 
4140 
4150 
4160 
4170 
4180 
4190 
4200 
4210 
4220 
4230 
4240 
4250 
4260 
4270 
4280 
4290 
4300 
4310 
4320 
4330 
4340 
4350 
4360 
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LET Y=1 

GOSUB 4560 : REM FIN DE FUNCION 

KEY(3) ON 

RETURN 

REM 

REM SOS SOSA SOS lSlO OJOS lla SlElOlOjOROJOK 
REM x*x*x* IMPRESION COMO LINEAS DE DATA *x*x 
REM ARSS SSS SISI SOS lSlO SES lO lolo lSlOlojOJOK 
REM 

KEY 4) STOP 

LINE(0O, 159)-(639,167),,BF 

LOCATE 21,26 

COLOR ,,1 

PRINT "IMPRESION COMO LINEAS DE DATA” 
COLOR ,,0 

LOCATE 22,1 


PRINT "COLOQUE LA IMPRESORA Y PULSE ENTER" 


LET A$=INKEY$ 

IF A$<>CHR$(13) THEN GOTO 3900 
LOCATE 22,1 

PRINT SPACE$(80) 

LOCATE 22,1 


INPUT "A PARTIR DE QUE LINEA EMPIEZO ===> " 


LOCATE 22,1 
PRINT SPACE$(80) 


LOCATE 22,1 
PRINT "IMPRIMIENDO ... ” 
LERTNT: LES “DATA 3L5 > 3H 
LET LI=LI+10 
FOR I=0 TO 2x*L STEP 10 
LPRINT L1I;"DATA"; 
LET N=8 
IF I+N>2*xL THEN LET N=2xL-I-1 
FOR J=I TO I+N 
LPRINT AX(J);","; 
NEXT J 
LPRINT AX(J) 
LET LI=LI+10 
NEXT I 
GOSUB 4560 : REM FIN DE FUNCION 
KEY(4) ON 
RETURN 
REM 
REM sSlRSS SOS lOjOjok 
REM *x** SALIDA DEL PROGRAMA xxx 
REM SAMOA SOS lOlllSlSllSSOSlOlK 
REM 
KEY(9) STOP 
LINE(O, 159)-(639, 167), ,BF 
LOCATE 21,32 
COLOR. ,:, 1 
PRINT "SALIR DEL PROGRAMA" 
COLOR ,,0 
LCCATE 22,1 
PRINT "ESTAS SEGURO? (S/N)" 
LET A$=INKEYS$ 
IF A$="" THEN GOTO 4280 
IF A$="S" OR A$="s" THEN GOTO 4360 
IF A$="N" OR A$="n" THEN GOTO 4330 
GOTO 4280 
GOSUB 4560 : REM FIN DE FUNCION 
KEY(9) ON 
RETURN 
REM 


REM aaa 
REM *x*x* FIN DEL PROGRAMA xxx 
REM SS ISlSlSlS lO lSSJMISIOIOlOllooloVlOJOK 
REM + 
SCREEN O 
PRINT "ADIOS ...” 
FOR I=1 TO 10 

PRINT 
NEXT 1 
END 
REM 
REM AOS OOOO OOOO HO 
REM *x*x* PETICION DE NOMBRE xx 
REM SISSI laSOlOlOJOISIOlSlolOlaROIOIIOIoK 
REM 
LOCATE 22,1 


INPUT "NOMBRE ( SIN EXTENSION ) ==> 


IF LEN(N$)>8 THEN GOTO 4520 
RETURN 

REM 

REM as lS SO OSOS lol IOJOJOIOJOK 
REM **x* FIN DE FUNCION x*+w*x* 
REM SAS IS OSOS lO lOJOIOJOJOK 
REM 

LOCATE 21,1 

PRINT SPACE$(160) 

LINE(0, 159)-(639,167), , BF 
LOCATE 21,24 

COLOR ,,1 


NS 


PRINT "FUNCION REALIZADA. PULSE UNA TECLA" 


COLOR ,,0 
LET A$=INKEY$ 
IF A$="" THEN GOTO 4680 
LOCATE 20, 1 
FOR I=20 TO 22 
PRINT SPACE$(80) 
NEXT 1 
RETURN 


Al principio del programa el ordenador 
nos pedirá la anchura y la altura que va 
a tener el gráfico. Una vez que se lo he- 
mos dicho, nos aparece una nueva pan- 
talla que, para uso nuestro, vamos a con- 
siderar dividida en tres zonas. Estas son: 


Zona 1. Se encuentra en la esquina 
superior izquierda de la pantalla. Aquí 
nos aparecerá la cuadrícula donde dise- 
ñaremos nuestro gráfico. 

Zona 2. Se encuentra en la esquina 
superior derecha de la pantalla. En ella 
nos aparece un cuadrado que está va- 
cío. No por mucho tiempo. Según vaya- 
mos definiendo nuestro gráfico, dentro 
del cuadrado aparecerá dicho gráfico 


tal y como lo veremos cuando lo utilice- 
mos en nuestros programas. 

Zona 3. Esta zona ocupa las cuatro úl- 
timas líneas de la pantalla. En ellas, apar- 
te de encontrarse un pequeño resumen 
de los comandos de que disponemos, 
podremos ver toda la información con 
respecto al programa. En esta zona será 
donde el usuario y el ordenador inter- 
cambien datos e informaciones. 


Visto esto ya estamos listos para empe- 
zar con la definición de nuestro primer 
gráfico. Si nos fijamos en la cuadrícula, 
podemos ver que en su esquina superior 
izquierda se encuentra un cursor parpa- 
deante. Dicho cursor será el encargado 
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de iluminar o apagar puntos en la cuadrí- 
cula. Para moverlo utilizaremos las teclas 
del cursor que tenemos en el teclado nu- 
mérico a nuestra derecha. 


8. Mover el cursor hacia arriba. 
2. Mover el cursor hacia abajo. 
4. Mover el cursor hacia la izquierda. 
6. Mover el cursor hacia la derecha. 


Para que no haya problemas a la hora 
de utilizar las teclas del cursor, hay que 
recordar que el teclado numérico se tie- 
ne que encontrar en modo cursor, y no 
en modo numérico. Para ello, tenemos 
que comprobar que la luz que hay junto 
a NUM LOCK está apagada. 

Una vez que podemos mover el cursor 
por la pantalla, para iluminar el punto so- 
bre el que se encuentra el cursor basta 
con pulsar la barra de espacio. Si lo que 
queremos es apagar el punto sobre el 
que se encuentra el cursor, también te- 
nemos que pulsar la barra de espacio. 

Cuando pulsamos la opción F2 para 
grabar un fichero que contiene las líneas 


PROGRAMA DEMO PARA IBM 


DATA con la definición de nuestro gráfi- 
co, la estructura es la siguiente. 


— En la primera línea nos aparecen 
sólo dos números. Estos son el ancho y el 
largo, en puntos, que tiene el gráfico que 
hemos definido. Estos dos números no son 
importantes y se graba por si son útiles al 
usuario. 

— A continuación vienen una serie de 
líneas con números. Estos son los núme- 
ros que tenemos que almacenar en un 
vector entero para utilizar el gráfico que 
están definiendo. 

— Por último, aparecen una serie de lí- 
neas todas llenas de ceros. Estas líneas 
no sirven para nada y el usuario puede 
anularlas. Se han puesto estas líneas 
para que se pueda apreciar perfecta- 
mente cuándo ha terminado la defini- 
ción del gráfico. 

El programa que aparece a continua- 
ción nos muestra un ejemplo de cómo 
utilizar el grupo de líneas. Para poder 
usar un gráfico definido. 


HORROR OOOO OOOO OOOO aaa aaa aaa aaa aio aia alado olaaa kak 
* PROGRAMA DEMO PARA VER COMO UTILIZAR LAS * 
* LINEAS DATAS CON LA DEFINICION DE LOS GRAFICOS x* 
NOOO OOOO OO OOOO aaa iaa iaa iaa aaa kk 


DIM AX(40) 

RESTORE 9050 

READ L,H 

FOR I=0 TO 39 
READ AX(I) 

NEXT I 

LOCATE 14,1 

PRINT STRING$(80, 219) 

FOR I=0 TO 596 STEP 4 
FOR J=1 TO 2 

PUT(1,93),A% 

NEXT J 

NEXT 1 * 

END 

REM 


IN ETS 
REM * LINEAS DATA CON LA DEFINICION DEL GRAFICO * 
IN E ETE 


REM 
DATA 40 , 10 
DATA 41,11,0, ,». 0 ,-241 


DATA 128 , 296 , 24576 , 96 , 336 


DATA-16047 , 256 , 193 , 8490 , 
DATA 768 , 224 ,-16383 , 256 , 


, , 276 ,-32511 


8128 , 255 , 338 , 224 , 1 


$12 ,-32733 ,-8419 ,-513 , 220 ,-8189 
0, , DD, D 


um Monitor de memoria 
ÉS para el COMMODORE 64 


A la hora de trabajar en código máqui- 
na, como debemos de usar la memoria 
del ordenador y tenemos que realizar 
muchas funciones con ella, se hace ne- 


PROGRAMA: MONITOR PARA COMMODORE 


A e e e 
o e e o cl roo iaa] 


cesario la utilización de un programa 
que nos permita mover BYTES, ver qué 
hay en una serie de posiciones de me- 
moria, copiar BYTES, imprimirlos, cambiar 
el contenido de algunas posiciones de 
memoria, etc. Con este programa podre- 
mos hacer todo esto de una forma muy 
cómoda. 


THEN GOSUB 4490: INPUT “VALOR A POKEAR = "“;P: IF P>255 OR P<O THEN 


1000 REM dad ISSO lSlOlSlSlOlSOlolOlolololalok 

1010 REM * MONITOR DE MEMORIA x*x 

1020 REM AdaSaOSISSlSlOlSlOlSOlOlOlSlOlloloJok 

1030 REM 

1040 REM asaldOSlSOSjSlOlS SOS ld Elda lalolOlalolOlololojojok 
1050 REM * xk 
1060 REM * (c) Ediciones Siglo Cultural * 
1070 REM x* xk 
1080 REM x (c) 1987 * 
1090 REM * k 
1100 REM RsSMSlS OSO lSlS SIS lSlS lO SIE lSlOlEldlE la jololOlololaloloK 
1110 REM 

1120 REM ASOMO ISS lOlSlOlRSlolOlolOJOlOK 

1130 REM * INICIALIZACION x* 

1140 REM dsd dol lolOlOlolojolO KK 

1150 REM 

1160 OPEN 1,0, 1 

1170 OPEN 2,4,2 

1180 LET CH=1 

1190 LET BA=10 

1200 LET MP=0 

1210 LET MO=2 

1220 LET SW=1 

1230 REM 

1240 REM asSdaS OS lSlOO lO lOlolOlOlOjOlOOlOlOK 

1250 REM * PROGRAMA PRINCIPAL x 

1260 REM daRSSS ISSO lSlSjSlOlOlSlOlOjOJOlOJOK 

1270 REM 

1280 PRINT CHR$(147) 

1290 POKE 214,1:POKE 211,22 

1300 PRINT "ESTOY EN BASE ";BA 

1310 GOSUB 1570 

1320 GET K$ 

1330 IF K$="" THEN GOTO 1320 

1340 IF K$="1" THEN LET MP=MP-1 

1350 IF MP<O THEN LET MP=65535! 

1360 IF K$="2" THEN LET MP=MP+1 

1370 IF MP>65535! THEN LET MP=0 

1380 IF K$="8" THEN LET MP=MP-10 

1390 IF MP<O THEN LET MP=85535 ! +MP 

1400 IF K$="9" THEN LET MP=MP+10 

1410 IF MP>65535! THEN LET MP=MP-85535! 
1420 IF K$>"0"” AND K$<":" THEN GOSUB 1570:GOTO 1320 
1430 IF K$="0" 

GOTO 1430 

1440 IF K$="0" THEN POKE MP,P:GOSUB 4490:GOTO 1280 
1450 IF K$="A" THEN GOSUB 3890:GOTO 1280 
1460 IF K$="B" THEN GOSUB 2190:GOTO 1320 
1470 IF K$="N" THEN GOSUB 2380:GOTO 1320 
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1480 IF K$="J" THEN GOSUB 2550:GOTO 1280 

1490 IF K$="L" THEN GOSUB 2710:GOTO 1280 

1500 IF K$="S" THEN GOSUB 3040:GOTO 1280 

1510 IF K$="M" THEN GOSUB 3210:GOTO 1280 

1520 IF K$="X" THEN GOSUB 3320:GOTO 1280 

1530 IF K$="P" THEN GOSUB 1820:GOTO 1280 

1540 IF K$="T" THEN GOSUB 3470:GOTO 1280 

1550 IF K$="D" THEN LET SW=-SW: PRINT CHR$(147):GOTO 1280 
1560 GOTO 1320 

1570 REM 

1580 REM da SIS OSOS Old ISSO SOlOlOlOlOJOJOK 

1590 REM * DISPLAY DE LA MEMORIA * 

1600 REM sARaSlSlO ISSO la Ello lO OO lOlolOlOlojak 

1610 REM 

1620 IF SW=-1 THEN GOTO 4200 

1630 POKE 214,0:POKE 211,0 

1640 FOR A=MP-10 TO MP+11 

1650 LET B=A 

1660 IF A>65535! THEN LET A=A-65536! 

1670 IF A<O THEN LET A=65536!+A 

1680 LET N$=MIDS$(STR$(A), 2) 

1690 LET P$=MID$(STR$(PEEK(A)),2) 

1700 IF MO=1 "THEN LET NU=VAL(P$):GOSUB 3650 
1710 IF LEN(N$)<5 THEN LET N$="0"+N$:GOTO 1710 
1720 IF MO=2 THEN IF LEN(P$)<3 THEN LET P$="0"+P$:GOTO 1720 
1730 IF MO=3 THEN LET NU=VAL(P$):GOSUB 2010 


1740  PRINT4CH," ";N$;" ";P$ 
1750  LET A=B 
1760 NEXT A 


1770 PORE 214,10:PORE 211,0:PRINT ">" 

1780 IF MO=1 THEN POKE 214,10:POKE 211,15:PRINT "<" 
1790 IF MO=2 THEN POKE 214,10:POKE 211,10:PRINT "<" 
1800 IF MO=3 THEN POKE 214,10:POKE 211,9:PRINT "<" 
1810 RETURN 

1820 REM 

1830 REM aMSSIS ISO IaloSS IS lOlafolOIOIOJOJK 

1840 REM * SALIDA POR IMPRESORA * 

IIA 

1860 REM 

1870 GOSUB 4490: INPUT "DESDE LA DIR. ";I:GOSUB 4490 
1880 IF I<O THEN GOTO 1870 

1890 GOSUB 4490: INPUT “HASTA LA DIR. ";F:GOSUB 4490 
1900 IF F<I OR F>65535! THEN GOTO 1890 

1910 LET A=MP 

1920 FOR M=1I TO F STEP 22 

1930 LET MP=M 

1940 LET CH=2 

1950 GOSUB 1570 

1960 NEXT M 

1970 LET MP=A 

1980 LET CH=1 

1990 GOSUB 1570 

2000 RETURN 

2010 REM 

2020 REM aaa lTElS SIISE look 

2030 REM * PASO DE DECIMAL A HEXADECIMAL x* 

2040 REM oO ISSN ISSN 

2050 REM 

2060 LET P$="" 

2070 FOR C=1 TO O STEP -1 

2080 LET N=INT(NU/16”C) 

2090 LET NU=NU-N*x16”C 

2100 IF N<10 THEN LET P$=P$+MID$(STR$(N),2,1) 


2110 IF N=10 THEN LET P$=P$+"A" 

2120 IF N=11 THEN LET P$=P$+"B" 

2130 IF N=12 THEN LET P$=P$+"C" 

2140 IF N=13 THEN LET P$=P$+"D" 

2150 IF N=14 THEN LET P$=P$+"E" 

2160 IF N=15 THEN LET P$=P$+"F" 

2170 NEXT C 

2180 RETURN 

2190 REM 

2200 REM AsSSS SOS lSlS SOS lO lO OJO IOOIOJOK 

2210 REM * BUSQUEDA DE BYTES x* 

2220 REM AdoSaSOS OO lololalololalakok 

2230 REM 

2240 GOSUB 4490 

2250 INPUT "CUANTOS BUSCO? (1-5) ";B 
2260 GOSUB 4490 

2270 IF B>5 OR B<1 THEN GOTO 2240 

2280 FOR A=1 TO B 

2290 PRINT CHR$(147) 

2300 POKE 214,21:POKE 211,0 

2310 PRINT "DAME EL NUMERO ";A 

2320 GOSUB 4490 

2330 INPUT "NUMERO > ";C(A) 

2340 GOSUB 4490 

2350 IF C>255 OR C<O THEN GOTO 2330 
2360 NEXT A 

2370 PRINT CHR$(147) 

2380 GOSUB 4490 

2390 PRINT "ESPERE UN MOMENTO. BUSCANDO" 
2400 FOR I=0 TO 65535! 

2410 LET NN=0 

2420 FOR J=0 TO B-1 

2430 IF PEEK(1I+J)=C(J+1) THEN NN=NN+1 
2440 NEXT J 

2450 IF NN=B THEN LET A=I:GOTO 2470 
2460 NEXT I 

2470 LET MP=A 

2480 PRINT CHR$(147) 

2490 GOSUB 4490 

2500 PRINT "ENCONTRADO. PULSE UNA TECLA" 
2510 GET A$ 

2520 IF A$="" THEN GOTO 2510 

2530 GOSUB 1570 

2540 RETURN 

2550 REM 

2560 REM asaSS OSOS SS SOS Ella lOlSlOlOK ak 
2570 REM * SALTO A UNA DIRECCION DE MEMORIA x 
2580 REM asaSlO ROSSO SOS lO Saldo lSlOlO llo lOIOK ak 
2590 REM 4 

2600 GOSUB 4490 

2610 INPUT "A QUE DIRECCION SALTO? (0-65535) ";J 
2620 GOSUB 4490 

2630 IF J<0 OR J>65535! THEN GOTO 2600 
2640 GOSUB 4490 

2650 PRINT "ESTAS SEGURO? (S/N)" 

2660 GET A$ 

2670 IF A$="" THEN GOTO 2660 

2680 IF A$="S" OR A$="s" THEN SYS J 

2690 IF A$<>"N”" AND A$<>"n" THEN GOTO 2660 
2700 GOTO 4150 

2710 REM 

2720 REM adalSSO OSO lola Ojala lalola lalololalojok 

2730 REM * CARGAR BYTES (LOAD) x 

2740 REM sSSSS ISS SlO SOS SjO SIS OlOJOJOKAK 
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2750 REM 

2760 GOSUB 2870 

2770 IF A$="D" OR A$="d" THEN OPEN 3,8,15,D$:GOTO 2800 
2780 IF A$<>"C" AND A$<>"c" THEN GOTO 2760 
2790 OPEN 3,1,0,D$ 

2800 INPUT $3,NN 

2810 FOR Z=0 TO NN-1 

2820 INPUT $3,A 

2830 POKE D+Z,A 

2840 NEXT Z 

2850 CLOSE 3 

2860 RETURN 

2870 REM : 

2880 REM aaa MIOlOlOIOlSlOlofoloJoK 

2890 REM * CASETE O DISCO? x 

2900 REM ddsMSSMS MISS IO lOlallolOlOJO KK 


2910 REM 
2920 GOSUB 4490 


2930 PRINT "CASETE O DISCO (C/D) ?" 

2940 GET A$ 

2950 IF A$="" THEN GOTO 2940 

2960 GOSUB 4490 

2970 INPUT "NOMBRE? (1-8 CHRS.) ";D$ 

2980 IF LEN(D$)>8 OR LEN(D$)=0 THEN GOTO 2960 
2990 GOSUB 4490 

3000 INPUT "DESPLAZAMIENTO ? ";D 

3010 IF D<O OR D>65535! THEN GOTO 2990 
3020 GOSUB 4490 

3030 RETURN 

3040 REM 

3050 REM AddaSSSIR SSI lSlSISlOlSjSlPlSJOlPlOjOJOK 

3060 REM * GRABAR BYTES (SAVE) *x 

3070 REM ASSSS SIS SSSSlSlSlSlOjOlOjOldlOlOIOJOK 

3080 REM 

3090 GOSUB 2870 

3100 GOSUB 4490 

3110 INPUT "LONGITUD? ";L 

3120 IF L>35535! OR L<0O THEN GOTO 3100 
3130 IF A$="D" OR A$="d" THEN OPEN 3,8,15,D$:GOTO 3160 
3140 IF A$<>"C" AND A$<>"c" THEN GOTO 3090 
3150 OPEN 3,1,1,D$ 

3160 PRINT $3,L 

3170 FOR Z=0 TO L 

3180 PRINT $3, PEEK(D+Z) 

3190 NEXT Z 

3200 RETURN 

3210 REM 

3220 REM AdSSSSS SIS lSlSSlSjSl”OlE SEIS lajololOlO OK 
3230 REM * CAMBIAR PUNTERO DE MEMORIA *x 
3240 REM ddRaRSSIRS ISSO lSlSlS SOS” jololojok: 
3250 REM 

3260 GOSUB 4490 

3270 INPUT "MEMORY = ";M 

3280 IF M>65535! OR M<O THEN GOTO 3260 
3290 GOSUB 4490 

3300 LET MP=M 

3310 RETURN 

3320 REM 

3330 REM ddMSMOIRSSISlSlSISlSlOIOlOlOIOJOK 

3340 REM * CAMBIO DE BASE x*x 

3350 REM daaaRalOSlSOlSlOlalolololOlolok 

3360 REM 

3370 POKE 214,5:POKE 211,18:PRINT "1. BASE 2.” 
3380 POKE 214,7:POKE 211,18:PRINT "2. BASE 10." 


3390 POKE 214,9:POKE 211,18:PRINT "3. BASE 16." 

3400 GET K$ 

3410 IF K$="" THEN GOTO 3400 

3420 IF K$<>"1" AND K$<>"2" AND K$<>"3" THEN GOTO 3400 
3430 LET BA=-(2 AND K$="1")-(10 AND K$="2")-(16 AND K$="3") 
3440 LET MO=VAL(K$) 

3450 LET K$="" 

3460 RETURN 

3470 REM 

3480 REM AddSaSRSSISOOlOlolololojok 

3490 REM * MUEVE BYTES x* 

3500 REM asada OOOO OlolOlOloK 

3510 REM 

3520 GOSUB 4490 

3530 INPUT "DESDE? ";P 

3540 IF P<O OR P>65535! THEN GOTO 3520 

3550 GOSUB 4490 

3560 INPUT "HASTA? ";D 

3570 IF D<O OR D>65535! THEN GOTO 3550 

3580 GOSUB 4490 

3590 INPUT "LONGITUD? ";L 

3600 IF L<O OR L>65535! THEN GOTO 3580 

3610 FOR I=0 TO L-1 

3620 POKE D+L,PEEK(P+L,) 

3630 NEXT I 

3640 RETURN 

3650 REM 

3660 REM ada loa lala ldjE lalalala lalola lalalala jojololak 

3670 REM * PASO DE DECIMAL A BINARIO *x 

3680 REM Ada SS SS OSOS OSOS ESOO” ldlO lO jolaJk 

3690 REM 

3700 LET P$="" 

3710 IF NU>=128 THEN LET P$="1":LET NU=NU-128:GOTO 3730 
3720 P$="0" : 

3730 IF NU>=64 THEN LET P$=P$+"1":LET NU=NU-64:GOTO 3750 
3740 P$=P$+"0" 

3750 IF NU>=32 THEN LET P$=P$+"1":LET NU=NU-32:GOTO 3770 
3760 P$=P$+"0" 

3770 IF NU>=16 THEN LET P$=P$+"1":LET NU=NU-16:GOTO 3790 
3780 P$=P$+"0" 

3790 IF NU>=8 THEN LET P$=P$+"1":LET NU=NU-8:GOTO 3810 
3800 P$=P$+"0" : 

3810 IF NU>=4 THEN LET P$=P$+"1":LET NU=NU-4:GOTO 3830 
3820 P$=P$+"0" 

3830 IF NU>=2 THEN LET P$=P$+"1":LET NU=NU-2:GOTO 3850 
3840 P$=P$+"0" 

3850 IF NU=1 THEN LET P$=P$+"1":LET NU=0:GOTO 3870 
3860 P$=P$+"0" 

3870 RETURN 

3880 REM 

3890 REM 

3900 REM AdaaSSO SO lSOOO lO lOlOOJokokk 

3910 REM + INSTRUCCIONES + 

3920 REM aaa laa lalalolololaioK 

3930 REM 

3940 CLS 

A A A A A A a 

3960 PRINT "*x*x INSTRUCCIONES xx" 

3970 PRINT “SSSIS=S=ESEIA 

3980 PRINT 

3990 PRINT "D = DUMP. CAMBIA MODO. " 

4000 PRINT "B = BUSCA BYTES EN MEMORIA" 

4410 NEXT I 

4420 LET MP=MP+150 
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4430 GOSUB 4490:PRINT “CONTINUAMOS? (S/N)" 
4440 GET A$ 
4450 IF A$="S" OR A$="s" THEN GOTO 4250 
4460 IF A$<>"N" AND A$<>"n" THEN GOTO 4440 
4470 GOSUB 4490 
4480 RETURN 
4490 REM 
4500 REM ada jSlSlSlOO Olla lSl”lS Ojala lalo lS OO ajaja jala Olalla jolololo lolo look 
4510 REM * BORRADO DE LOA LINEA 22 Y POSICIONAMIENTO x*x 
4520 REM AaSSSS RSS S OSOS SSA lSO SS” SS jSS SS lSlO a l”lO Ojo jolO Ola joJoJOk 
4530 REM 
4540 POKE 214,22 
4550 POKE 211,0 
4560 FOR Z=1 TO 40 
4570 PRINT>=-="> 
4580 NEXT Z 
4590 POKE 214,22 
4600 POKE 211,0 
4610 RETURN 
4010 PRINT "A = AYUDA. PONE ESTAS INSTRUCCIONES. " 
4020 PRINT “J = JUMP. EJECUTA CODIGO MAQUINA. " 
4030 PRINT "L = LOAD. CARGA BYTES. " 
"M = MEMORY. AJUSTA EL PUNTERO. " 


4040 PRINT "M 

4050 PRINT "P = PRINTER. PASA POR IMPRESORA. " 
4060 PRINT "S = SAVE. GRABA BYTES. " 

4070 PRINT "T = TRASLADA BYTES. " 

4080 PRINT "X = CAMBIA DE BASE. " 

4090 PRINT "2 = AUMENTA EL PUNTERO EN 10.” 
4100 PRINT "1 = AUMENTA EL PUNTERO EN UNO. " 
4110 PRINT "9 = DISMINUYE El, PUNTERO EN UNO. ” 
4120 PRINT "8 = DISMINUYE EL PUNTERO EN 10.” 
4130 PRINT "0 = POKEA EN EL PUNTERO. " 

4140 PRINT 

4150 PRINT "PULSA UNA TECLA" 

4160 GET A$ 


4170 IF A$="" THEN GOTO 4160 

4180 PRINT CHR$(147) 

4190 RETURN 

4200 REM 

4210 REM AdoSSRSSS SOS lO PISOS ISSO lSlSOlOjOIOJOK: 
4220 REM * MODO DUMP DE MEMORIA x* 
4230 REM AdRalSRSS SS SOS lS ISSO lOjOlOJOlOJOK 
4240 REM 

4250 PRINT CHR$(147) 

4260 FOR I=MP TO MP+150 STEP 10 
4270 IF 1>65535! THEN GOTO 4480 
4280 LET N$=MID$(STR$(1),2) 
4290 IF LEN(N$)<5 THEN LET N$="0"+N$:GOTO 4290 
4300 PRINT*CH,N$;": *; 

4310 LET-Q$="" 

4320 FOR J=1 TO 1+9 


4330 LET NU=PEFK(J) 

4340 LET M$=CHR$(NU) 

4350 IF NU<32 THEN M$="." 
4360 GOSUB 2020 

4370 Q$=Q$+M$ 

4380 PRINT+CH, P$; 


4390 NEXT J 
4400 PRINT*CH," ";Q$ 


Los comandos de que disponemos a la 
hora de utilizar este programa han sido 
hechos desde IBM pc, por lo que en la 
pantalla del COMMODORE no aparece- 
rán igual, aunque sí muy parecidas. 


Poco hay que explicar sobre el uso del 
programa, ya que éste es muy sencillo y 
autoexplicativo. Lo único que hay que 
decir es que tenemos la posibilidad de 
ver la pantalla de dos formas distintas. 
Podemos ver cómo aparece la dirección 
de memoria junto con el valor que se al- 
macena en dicha posición. Dicho valor 
podemos verlo en base 10, base 16 e in- 
cluso en base 2. 


Como muchas veces este formato no 
es del todo eficiente, hemos incluido otra 
forma de visualización de la memoria. 
Vemos cómo aparece la posición de me- 
moria del primer BYTE de cada línea. A 
continuación vemos diez BYTES en nota- 
ción hexadecimal y a continuación el 
carácter que representan en código AS- 
Cll. Cuando un carácter no es imprimible, 
por ser de control, aparecerá como un 
punto (.). Este modo de visualización de 
la memoria nos puede servir para buscar 
mensajes impresos dentro de la misma. 

Para cambiar de un modo a otro de vi- 
sualización, sólo tenemos que pulsar la 
tecla D. 


Fase de 
== diagnóstico 


ONCLUIREMOS, ante 
todo, indicando los 
últimos objetivos que 
suelen anotarse en el 
estudio de la mejora 
de la producción in- 
dustrial: 


Objetivos humanos 


Mejora de las condiciones de trabajo. 

Mejora de la seguridad (no acciden- 
tes). 

Mejora de la formación. 


Objetivos de gestión 


Mejora del control general de los pro- 
cesos (costes, valor de los stocks, etc.). 

Mejora de los tiempos de reacción en 
caso de perturbación. 

Etc. 


O Proyecto de automatización 


Entrando ya en el proyecto de automa- 
tización de la producción industrial en sí, 
hemos de anotar que, siguiendo el es- 
quema usual en cualquier proyecto de 
desarrollo de un producto nuevo a nivel 
industrial, se suele dividir la tarea en cua- 
tro fases: 


— Diagnóstico. 

— Análisis y concepción de la solu- 
ción adecuada. 

— Realización. 

— Implementación y puesta en funcio- 
namiento. 


En estas breves notas, y cara al objeti- 
vo que nos ocupa, veremos las caracte- 
rísticas básicas de las dos primeras eta- 
pas indicadas (que son las que corres- 
ponden a las actividades que se consi- 
deran propias de los analistas de los pro- 
yectos de automatización industrial). 
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PROYECTO DE AUTOMATIZACION DE LA PRODUCCION 


'O Diagnóstico 


A. Objetivos del diagnóstico 


Durante la fase de diagnóstico se sue- 
len determinar: 


' — La estrategia de los medios de per- 
sonal. 

— La estrategia de los medios mate- 
riales (células de fabricación, robots, ma- 
nipuladores, etc.). 

— La estrategia del sistema de gestión 
de la producción (procedimientos, pro- 
gramas informáticos-software, medios de 
proceso, etc.). 

— La estrategia de puesta en funcio- 
namiento de la automatización y de in- 
formatización de la producción. 


B. Etapas de la fase de diagnóstico 


En la figura se presentan, de un modo 
gráfico, las diferentes etapas que se de- 
sarrollan en el proceso de diagnóstico 
previo al establecimiento del proyecto 
de mecanización de la producción in- 
dustrial. 


C. “Herramientas” de ayuda en el 
diagnóstico 


Se suelen utilizar diferentes “herramien- 
tas” para los diversos aspectos involucra- 
dos en el diagnóstico: 


1. En la búsqueda de informaciones, 
se manejan indicadores tanto a nivel de 
elementos físicos de producción como 
de control del producto, descriptivos de 
los centros de producción y sus diferen- 
tes unidades, etc. Esimportante, en la se- 
lección de estos indicadores, asegurarse 
de que los datos elegidos cumplen las 
tres características básicas que deben 
cumplir, y que son: que sean cuantifica- 
bles, medibles y programables. 

2. En el preanálisis propiamente 
dicho, para la identificación de disfun- 
ciones se suelen utilizar las rejillas del 
método GRAI (que veremos más detalla- 
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damente al describir las técnicas de 
análisis); para la localización de “cuellos 
de botella”, un cuadro de relación car- 
gas-capacidades o algún sistema de si- 
mulación (aunque en esta fase previa 
debe considerarse cuidadosamente la 
relación coste-rendimiento de cualquier 
técnica aplicada). 

3. La fase de toma de decisiones, en 
cuanto al diagnóstico previo, supone la 
consideración de elementos de inversio- 
nes a efectuar (capitales invertidos, ciclo 
de vida de los productos involucrados, 
valores residuales, tasas de actualiza- 
ción, etc.), de selección de acciones a 
tomar, etc. En esta etapa es usual la uti- 
lización de algún software específico di- 
señado para esta tarea; para el empleo 
de estos programas hay que seguir los si- 
guientes pasos: 


— Preparar un fichero que contenga 
objetos evaluados según un conjunto de 
criterios preestablecidos. 

— Seleccionar los criterios utilizables 
en el caso presente. 

— Definir especificaciones sobre los 
criterios, cara a eliminar todo objeto que 
no satisfaga las condiciones presentes. 

— Elegir un conjunto por criterio de re- 
flexión. 

— Ponderar los criterios en función de 
su importancia relativa. 

— Modificar la función de evaluación 
propuesta, observando el efecto de esta 
modificación sobre los valores tomados 
por los objetos y su clasificación. 

— Llegados a una situación satistacto- 
ria, utilizar la función de evaluación, rete- 
niendo todos los objetos no eliminados y 
clasificándolos según un valor decre- 
ciente. 


Fig. 1. Etapas de desarrollo del diagnóstico. 


Programación 


en paralelo 


NA de las técnicas de 
punta de la Informáti- 
ca moderna es la 
programación en pa- 
ralelo. El abarata- 
miento de los disposi- 
tivos de cálculo auto- 
mático (los micropro- 
cesadores) ha tenido como consecuen- 
cia que hoy sea factible el diseño de 
computadoras mucho más complejas 
que las tradicionales, que disponen de 
varias unidades centrales de proceso 
idénticas y conectadas entre sí. La utili- 
zación óptima y correcta de estos “siste- 
mas de cálculo en paralelo” o “procesa- 
dores vectoriales” dista mucho de estar 
clara. Las nuevas técnicas han de ir de- 
sarrollándose lentamente y con gran es- 
fuerzo. En otras palabras, el “software” 
parece haberse quedado atrás respecto 
al “hardware”. 

¿Por qué ha ocurrido esto? Porque, con 
muy pocas excepciones, los lenguajes 
de programación tradicionales no esta- 
ban preparados ni son adecuados para 
enfrentarse a los desafíos impuestos por 
la nueva forma de programar. En efecto, 
casi todos ellos son demasiado poco po- 
tentes y se basan en la suposición de que 
el orddenador donde han de actuar los 
programas ejecuta las-instrucciones de 
una en una, secuencialmente, sin poder 
realizar dos operaciones a la vez. Sin em- 
bargo, esta suposición ya no es aplica- 
ble a las nuevas máquinas vectoriales. 

Existe una excepción importante a la 
afirmación anterior: entre los lenguajes 
de alto nivel hay uno que se presta ex- 
traordinariamente a la programación en 
paralelo. Se trata del lenguaje APL. Va- 
mos a dedicar este capítulo a la presen- 
tación de algunos ejemplos que lo de- 
muestran y que servirán de indicio de 
cómo puede ser la forma de programar 
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del futuro que hará un uso óptimo de las 
potencialidades de las nuevas máqui- 


nas. 


Programación lógica 
en paralelo 


La Lógica fue tradicionalmente una 
parte de la Filosofía, aunque a partir del 
siglo xix se convirtió en una de las ramas 
de las Matemáticas. En su forma más sen- 
cilla, la Lógica estudia la verdad o false- 
dad de las proposiciones (afirmaciones 
o negaciones) y la forma en que, a partir 
de algunas de ellas, pueden deducirse 
otras de las que tambiér, podremos afir- 
mar si son verdaderas o falsas. 

Veamos un ejemplo de proposición 
verdadera: 


“Todos los hombres son mortales” 


Veamos un ejemplo de proposición fal- 
sa: 


“Todos los hombres son amarillos” 


En cambio, la siguiente proposición es 
verdadera: 


“Algunos hombres son amarillos” 


Una de las ramas más populares de la 
Informática (la “Inteligencia Artificial”) se 
ocupa de la emulación en un ordenador 
de los procesos mentales humanos. A pe- 
sar de que el atractivo del tema consi- 
gue con frecuencia titulcires de prensa, 
la Inteligencia Artificial está bastante me- 
nos avanzada de lo que podría deducir- 
se de la simple lectura de dichos titula- 
res. Sin embargo, hay ciertas operacio- 
nes aparentemente inteligentes (como 
la solución de problemas lógicos senci- 
llos) que pueden realizarse sin demasia- 
dos problemas por medio de un progra- 
ma de ordenador. 

En el lenguaje APL, la verdad o la false- 
dad de una proposición se representa 
con los números 0 y 1. El 1 significa que 


la proposición es verdadera; el 0, que es 
falsa. 

Sea P una proposición cualquiera. Si P 
es verdadera, diremos que su valor de 
verdad es 1; si es falsa, diremos que es 0. 
Sea P1 una variable que representa to- 
dos los posibles valores de verdad o fal- 
sedad de la proposición P (es decir, O y 
1). Le asignaremos esos valores de la si- 
guiente manera: 


PIO 4 


Llamaremos “negación” de una propo- 
sición a otra proposición que afirma lo 
contrario que dicha proposición. Por 
ejemplo, la negación de “Todos los hom- 
bres son mortales” es “No todos los hom- 
bres son mortales”. Si una proposición es 
verdadera, su negación será falsa, y vi- 
ceversa. Veamos cómo se expresa eso 
en APL: 


Supongamos ahora que tenemos no 
una, sino dos proposiciones, P y QA. Va- 
mos a definir dos variables, P2 y QA2, que 
contengan todas las posibles combina- 
ciones de verdad y falsedad de P y O. Es- 
tas combinaciones son cuatro (P y QA son 
a la vez verdaderas; a la vez falsas; P es 
verdadera y Q es falsa; P es falsa y QA ver- 
dadera). En consecuencia, los valores 
que hemos de asignar a P y QA son los si- 
guientes: 


Pp2-0 101 
Q2+0 0 11 


Obsérvese que las columnas del pro- 
grama anterior nos dan, precisamente, 
las cuatro combinaciones. 


Ahora podemos realizar ciertas opera- 
ciones sobre los valores de verdad de Pp 
y Q. Por ejemplo, la anterior expresión 
(que se lee “P y Q”) es verdad sólo cuan- 
do P y QA son verdad a la vez. Mientras 
que la siguiente expresión (que se lee “P 
o Q” sólo es falsa cuando P y Q son fal- 
sas a la vez: 


Por consiguiente, una proposición y su 
negación nunca serán verdad a la vez, 
mientras que siempre se cumplirá una o 
la otra. Dicho de otro modo: “P y no P” no 
pueden ser verdad a la vez, mientras que 
“Po no P” siempre es cierto: 


Pla(aP1) + 


Piv(P1)” 


Decimos que una proposición P impli- 
ca otra, A, cuando Q es verdad oP es fal- 
so. 


Q2v(4P2) 
1 Ot 


Obsérvese que la expresión anterior 
tiene un solo 0) que corresponde al caso 
en que P es verdad y Q es falso. Es decir: 
“P implica Q es falso sólo si P es verdad 
y QA es falso”, como era de esperar. 
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lO Solución de un problema 
logico 


Se habrá observado que, en todos los 
ejemplos anteriores, una sola expresión 
APL permite obtener de un solo golpe (en 
paralelo) todas las soluciones posibles 
que corresponden a las distintas combi- 
naciones de valores de las variables ló- 
gicas con las que estamos trabajando. 
Ahora vamos a ver cómo se puede em- 
plear esta técnica para resolver un pro- 
blema lógico algo más complicado. 

El problema en cuestión está sacado 
del libro “¿Cómo se llama este libro?”, de 
Raymond Smullyan (Ediciones Cátedra, 
1978). El problema se enuncia así: 


“Cuando Alicia entró en el bosque del 
olvido no lo olvidó todo, solamente cier- 
tas cosas. A menudo olvidaba su nom- 
bre, y una de las cosas que más disposi- 
ción tenía a olvidar era el día de la se- 
mana. Ahora, el León y el Unicornio visi- 
taban frecuentemente el bosque. Los dos 
son criaturas extrañas. El León miente los 
lunes, martes y miércoles y dice la ver- 
dad los otros días de la semana. El Uni- 
cornio, por otra parte, miente los jueves, 
viernes y sábados, pero dice la verdad 
los restantes días de la semana.” 

“Un día Alicia se encontró con el León 
y el Unicornio que descansaban bajo un 
árbol. Ellos dijeron lo siguiente”: 

“León: Ayer fue uno de los días -en que 
me toca mentir.” 

“Unicornio: Ayer fue uno de los días en 
que me toca mentir.” 

“A partir de estas dos frases, Alicia (que 
era una chica lista) fue capaz de dedu- 
cir el día de la semana. ¿Qué día era 
éste?” 

Vamos a resolver el problema median- 
te programación lógica en paralelo. En 
primer lugar, es preciso definir los datos. 
La variable DIAS contenará los siete días 
de la semana, representados por los nú- 
meros del 1 al 7, de acuerdo con la si- 
guiente tabla: 


: Domingo. 
: Lunes. 

: Martes. 

: Miércoles. 
: Jueves 

: Viernes 

: Sábado 


J3JOONnAaAoOoN-— 


Por otro lado, la variable AYER conten- 
drá el día anterior a cada uno de los días 
indicados (donde 7 es el día anterior a 
1). Estas dos variables se definirán, en 
APL, de la siguiente manera: 


Obsérvese que cada elemento de ayer 
es, efectivamente, el día anterior al ele- 
mento correspondiente de DIAS. 

Necesitamos también dos variables 
que nos digan qué días miente el León 
(LM) y qué días miente el Unicornio (UM): 


Ya tenemos los datos. Ahora vamos a 
resolver el problema. Para ello tendre- 
mos que escribir expresiones lógicas que 
estén de acuerdo con el enunciado del 
problema. Veamos cómo: 

El León ha dicho: “Ayer fue uno de los 
días en que me tocaba mentir.” Esto lo 
puede decir en dos casos distintos: si hoy 
dice la verdad y ayer mentía, o si hoy 
miente y ayer dijo la verdad. El primer 
caso puede expresarse así: 


LA1+(ADIASELM)A(AYERELM) 


que puede leerse de esta manera: “Días 
que no pertenecen a los que el León 
miente, mientras que Ayer pertenece a 
los que el León miente.” Obsérvese que 
el resultado nos indica que esto sólo pue- 
de ocurrir en jueves. Hemos guardado 
este resultado en la variable LA1 (Alter- 
nativa 1 del León). 

El segundo caso (el León miente hoy, 
pero ayer dijo la verdad) puede expre- 
sarse así: 


LA2+(DIASeLM)a(nAYERELM) 


que puede leerse de esta manera: “Días 
que pertenecen a los que el León mien- 
te, mientras que Ayer no pertenece a los 
que el León miente.” En este caso, el re- 
sultado nos indica que esto sólo puede 
ocurrir en lunes. Hemos guardado este re- 
sultado en la variable LA2 (Alternativa 2 
del León). 

Cualquiera de las dos posibilidades es 
aceptable. Por tanto, debemos unir las 
dos expresiones mediante la operación 
“O”, Guardemos el resultado conjunto de 
la variable LA (alternativas del León): 


LA+LA1vLA2 


LA 
0 EDO“ 100-9 


Ahora hacemos lo mismo para el Uni- 
cornio (que dijo la misma frase): 


UA1+(ADIASE€UM)Aa(AYEREUM) 
UA1l 
1-0. 070 0580 
UA2+ (DIASEUM)a(AYEREUM) 
UA2 
9000 "E 
UA+UA1vUAZ 


UA 
10.4. 0,1 00 


Obsérvese que la primera alternativa 
del Unicornio (variable UA 1) sólo puede 
ocurrir en domingo, mientras que la se- 
gunda (variable UA2) sólo puede ocurrir 
en jueves. 

Ahora bien: las frases pronunciadas por 
el León y el Unicornio deben ser posibles 
a la vez (eso es lo que dice el enuncia- 
do del problema). Por tanto, debemos 


unir con la operación “Y” las dos varia- 
bles LA y UA, que nos dan las situaciones 
en que son posibles las frases del León y 
del Unicornio. 


LAAUA 
0000100 
(LAAUA)/DIAS 


5 


Puede verse con facilidad que la con- 
junción de ambas frases sólo es posible 
en el día 5 (el jueves). 

Resumamos todo lo anterior en un solo 
programa, que resuelve el problema ló- 
gico propuesto: 


[0] ALICIA 


EY] DIASEL. 2: 3739 BT 
[21] AYERSTF. 1,2. 3,4, 3::6 
E33 LM-2 3 4 


[4] UM+S 6 7 
[5] LA1* (ADIASELM)A(AYERELM) 
16] LA2+ (DIASeLM)a(AYERELM) 
[7] LAFLA1vLA2 

[81 UA1+ (ADIASEeUM)A(AYEREUM) 
[9] UA2+* (DIASEeUM)a(AYEREeUM) 
[10] UA+UA1vUA2 
[111  (LAAUA)/DIAS 


Veamos ahora su ejecución completa: 


ALICIA 


Se observará que el método utilizado 
consiste en probar simultáneamente to- 
das las soluciones posibles (los siete días 
de la semana) y quedarse, finalmente, 
con la que cumple las condiciones espe- 
cificadas por el enunciado del proble- 
ma. Este método es especialmente útil 
cuando se desea aprovechar las facili- 
dades de la programación en paralelo. 
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) Cómo formar 
palabras 
compuestas 


AMOS a escribir un 
procedimiento muy 
sencillo que nos va a 
permitir formar pala- 
bras compuestas. 
Para eso necesita- 
mos utilizar la función 


PALABRA p1 p2 


que devuelve la palabra que se obtiene 
al unir las letras o palabras pl y p2. 
El procedimiento es el siguiente: 


? PARA UNIR :PALI 


¿PALZ 


> Ház "NUEVA PALABRA :PAL1 :PALZ 
+ ES NUEVA 


2 FIN 


Si lo probamos nos queda: 


? UNIR “SACA *CORCHOS 
SACACORCHOS 

? UNIR “PARA “BRISAS 
PARABRISAS 


? UNIR “MARI “SOL 
MARISOL 
>m 


¡Ol Cómo leer una lista 


Ya sabemos que al utilizar la función LC 
la tortuga se queda esperando a que 
pulsemos una tecla y cuando lo hace- 
mos, guardamos su valor (una letra o un 
número) en una variable. Pero con ella 
no tenemos la posibilidad de leer pala- 
bras o listas. 


Para ello, hay que usar la función 
LEELISTA 


o en abreviatura 
LL 


Esta función hace que la tortuga nos 
deje escribir en la pantalla una palabra 
o una frase y se quede sin hacer nada 
hasta que pulsamos la tecla RETURN. 
Cuando lo hacemos, convierte lo que ha- 
yamos escrito en una lista. 


Como siempre, esa lista la almacena- 
remos en una variable poniendo 


HAZ “VAR LL 


Hay que tener cuidado a la hora de uti- 
lizar LL para leer una palabra. Si escribi- 
mos 


A 


2 HAZ “VAR LL 
LOGO 
>m 


en la variable VAR se nos almacena 


es decir, una lista formada por una sola 
letra. Si queremos que la tortuga guarde 


tenemos que utilizar una función nueva. 
Esta función es 


PRIMERO 1 


> HAZ “COLORES [ROJO AMARILLO VERDE) 


que devuelve el primer elemento de la 
lista 1. 

Por tanto, podemos escribir un proce- 
dimiento que nos permita leer palabras y 
guardarlas en una variable. Es el siguien- 
te: 


? PARA LEEPÁL 


> HAz "PAL PRIMERO LL 


> FIN 


Otras funciones para manejar 
listas 


Vamos a ver algunas funciones que se 
usan para trabajar con listas. Como siem- 
pre, el resultado que nos devuelva la tor- 
tuga lo tendremos que utilizar con algún 
comando. 

La función 


ULTIMO 1 


devuelve el último elemento de la lista 7, 
mientras que 


MENOSPRIMERO 1 
o en abreviatura 
MP 1 


da como resultado una lista quitando el 
primer elemento de la lista ] y 


MENOSULTIMO 1 
o en abreviatura 
MU 1 


da una lista quitando el último elemento 
de ] 


>ES FRASE “BUENAS” TARDES 
BUENAS TARDES 

> ES PP"AZU «COLORES 

AZUL ROJO AMARILLO VERDE 
> ESPU” AZUL ¿COLORES 

ROJO AMARILLO VERDE AZUL 


>. 


Por otro lado, la función 
FRASE p1 p2 


devuelve una lista formada por las pala- 
bras p1 y p2, mientras que las funciones 


PONPRIMERO p 1 
o en abreviatura 
PPp 1 
Y 
PONULTIMO p 1 
o en abreviatura 
PUp 1 


devuelven una lista que se obtiene al 
añadir la palabra p a la lista 7] al princi- 
pio o al final, respectivamente. 


2 ES CUENTA «COLORES 
3 

?ES ELEMENTO 2: COLORES 
AMARILLO 


?ES VACIO? ¿COLORES 
FALSO 

?ES VACIO? [ J] 
CIERTO 


>m 


Por último, existen tres funciones un 
poco especiales. La función 


CUENTA 1 


devuelve el número de elementos que 
tiene la lista ). 
Con la función 


ELEMENTO n 1 


la tortuga nos da el elemento que ocupa 
la posición n dentro de la lista ] y con 


VACIO? 1 


nos dice si la lista 1] contiene (devuelve 
CIERTO) o no (devuelve FALSO) algun ele- 
mento. 
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(E) Cómo tener una agenda 
=== de teléfonos 


Vamos a escribir varios procedimientos 
con los que podremos hacer varias co- 
sas con una agenda que nos servirá para 
guardar los teléfonos de nuestros amigos. 


? PARA AGENDA 

> TEXTO 

> BT 

> ES [ELIGE UNA OPCION: J 
AER AESS ES: EJ 

> ES [1 EMPEZARI ES [1 

> ES [2 AÑADIRI ES [1] 

> ES [3 CONSULTARI ES ([]J 
> ES [4 VER TODOJ ES (J 
> ES [O TERMINAR] ES (1 
ES IES. 53 

+ TECLEA "OPCION: 

> HAZ "TECLA LC 
> ES : TECLA 


SI NO MIEMBRO” 


[PULSA CUALQUIER TECLA PARA CONTINUARI HAZ 


?> SI ¿TECLA = O [ALTO] 
> SI ¿TECLA = 1 CLEMPEZARI 
> SI ¿TECLA = 2 CARADIRI 

+ SI ¿TECLA = 3 [CONSULTARIJ 
> SI ¿TECLA = 4 [VERI 


¿ES 14 ES. [3 


¿TECLA [O 1 


Podremos crearla, añadir un nombre con 
su teléfono, buscar el teléfono correspon- 
diente a un nombre en concreto o ver la 
lista de nombres y teléfonos que tenga- 
mos en la agenda. 

El procedimiento general se llama 
AGENDA y se encarga de utilizar el resto. 
Tenemos que escribir: 


2 34] [ES [TECLA NO VALIDAJ ES 


"TECLA LC AGENDAJ 


> ES [FULSA CUALQUIER TECLA PARA CONTINUAR 1 


> HAZ "TECLA LC 


> AGENDA 


> FIN 


3 


PARA EMPEZAR 


> HAZ "NOMBRES [1 


+ HAZ "TELEFONOS []J 


+ ARADIR 


> FIN 


«) 


PARA AÑADIR 

2 83. 

> TECLEA "NOMBRE: 
> HAZ "NOMB PRIMERO LL 


e ES” ca 


> TECLEA "TELEFONO: 


> 


HAZ "TELEF PRIMERO LL 

HAZ "NOMBRES PONULTIMO :NOMB : NOMBRES 
HAZ "TELEFONOS FONULTIMO ¿TELEF : TELEFONOS 
FIN 

FARA CONSULTAR 

BT 

TECLEA "NOMBRE: 

HAZ "NOMB PRIMERO LL 

ES 1-1 

HAZ "NUM 1 

BUSCAR 


SI :¿NUM > CUENTA NOMBRES [TES [ESTE NOMBRE NO 


AGENDA ALTOJ 


TECLEA [EL TELEFONO ES: J 

ES ELEMENTO :NUM : TELEFONOS 
FIN 

PARA BUSCAR 


SI :NUM > CUENTA :NOMBRES [ALTOJ 


+ SI ELEMENTO :NUM ¿NOMBRES = :NOME [ALTO] 


HAZ "NUM ¿NUM + 1 


BUSCAR 


> FIN 


PARA VER 


> BT 


TECLEA [LA AGENDA TIENE —1 
TECLEA CUENTA : NOMBRES 
ES [-= ELEMENTOSI 


ES 57 ES td ES -EJ 


+ RECORRER : NOMBRES : TELEFONOS 


> FIN 


* PARA RECORRER :N 2T 


+ SI VACIO? :¿N [ALTO] 


> TECLEA PRIMERO :N 


PS TECUER EX e A 2d 


> ES PRIMERO :T 


+ RECORRER MP :¿N MP 3T 


a 


> FIN 


ESTA EN LA 


| pS 


20 LOGO 


en donde NOMBRES Y TELEFONOS son dos 
variables en las que vamos almacenan- 
do la lista de los nombres de nuestros 
amigos y la de sus teléfonos. 

NOTA: el comando 


BT 


nos permite borrar el texto que haya en 
la pantalla. 


' Os proponemos 


1. Añade más opciones al procedi- 
miento AGENDA y los procedimientos ne- 


cesarios para poder hacer las siguientes 
cosas: 


a) Borrar un nombre y su teléfono de 
la agenda. 


b) Cambiar el número de teléfono 
correspondiente a un nombre. 


c) Comprobar que cuando se añade 
un nombre en la agenda, éste no está ya 
en la misma (para que un nombre no esté 
dos veces). 


d) Clasificar los nombres y sus teléfo- 
nos por orden alfabético. 
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OD La búsqueda 
dicotómica 


N multitud de ocasio- 
nes se plantea el pro- 
blema de encontrar, 
en una lista ordena- 
da de elementos, uno 
de ellos en concreto; 
pensemos, por ejem- 
plo, en la búsqueda 
de un nombre dado en una página de la 
guía telefónica. 

En casos así, una posible forma de pro- 
ceder es empezar observando el prime- 
ro e ir avanzando de uno en uno hasta 
encontrar el deseado. Si la lista tuviese N 
elementos, el número de observaciones 
necesario para encontrar un elemento 
cualquiera sería, en valor medio, N divi- 
dido por 2. 

Sin embargo, y suponiendo que la úni- 
ca caracteristica conocida de la lista 
sea su criterio de ordenación, el mejor 
sistema de búsqueda, es decir, el que en 
término medio permite encontrar el ele- 
mento con un menor número de observa- 
ciones, es el denominado método de 
búsqueda dicotómica, que consiste en 
lo siguiente: 

El primer elemento que se observa es 
el del medio de la lista; si coincide con 
el buscado, el problema queda resuelto, 
pero si no, queda reducido a encontrar 
el elemento en una de las dos medias lis- 
tas que delimita el elemento central; s>- 
gún como sean las posiciones relativas 
del elemento central y del elemento bus- 
cado, resulta posible determinar en cuál 
de las dos mitades hay que seguir bus- 
cando. Con la media lista seleccionada 
el proceso se repite: se observa el ele- 
mento central y, o bien se acaba el pro- 
blema, o bien queda reducido a buscar 


en una lista con la cuarta parte de ele- 
mentos, etc. La forma habitual de buscar 
algo en una guía telefónica por tanteos 
es más o menos parecida a esto. 
Supongamos que la lista tenga 256 ele- 
mentos y que el buscado sea el de la po- 
sición 183. En primer lugar, observaría- 
mos el 128 y, al estar entre el 128 y el 256; 
a continuación observaríamos en el me- 
dio de ese tramo, es decir, en la posición 
192, y decidiríiamos que ha de estar en- 
tre 128 y 192, por lo que pasaríamos a 
observar el 160, etc. La secuencia sería: 


128 192 160 176 184 180 
182 183 


Habría que hacer, por tanto, ocho ob- 
servaciones en el peor de los casos y 
aproximadamente siete en valor medio; 
en concreto, para una lista con N ele- 
mentos el máximo número de observa- 
ciones necesario sería el logaritmo en 
base 2 de N o, dicho de otra forma, con 
X observaciones sería posible encontrar 
cualquier elemento de una lista con 2 
elevado a X elementos. 

Como ejemplo concreto veamos cómo 
obtener en un tabla de números situados 
en orden creciente la posición de uno 
dado. Supongamos que la tabla se defi- 
ne así: 
const 

Total = 1000; 


var 
Tabla: array (1..Total) of integer; 


Una función que devolviese la posición 
de un número obtenida por búsqueda di- 
cotómica, o un cero en caso de no en- 
contrarlo, podría ser: 


PASCAL 


EnMedio : integer; 


Ok : boolean; 
* as 


Primero:= 1; 
Ultimo := Total; 
Ok := false; 


begin 


else 


else 
Okz:= true 
end; 


end; 


Búsqueda dicotómica de 
= raices de polinomios con 
el método de Sturm 


Recordemos el método de Sturm de ob- 
tención de raíces reales de polinomios; 
con él era posible construir una función 
entera, a la que llamábamos CAMBIOS DE 
SIGNO, que servía para determinar la 
cantidad de raíces reales existentes en- 
tre dos puntos cualesquiera. En concre- 
to, las raíces se encontraban justo don- 
de la función presentaba sus escalones 
o cambios de valor (aunque no se ha 
mencionado, como el lector supondrá, 
la presencia de un escalón de dos uni- 
dades, por ejemplo, corresponde a una 
raíz doble, puesto que la diferencia en 
número de cambios de signo entre un 
punto situado inmediatamente antes del 
escalón y otro situado inmediatamente 
después es dos). 


Como los escalones van siempre en el 
mismo sentido (siendo máximo el núme- 
ro de cambios de signo en menos infini- 
to), a la hora de buscar la ubicación 


function Posicion (Num: integer): integer; 


í Busca en Tabla la posicición de Num y la devuelve. 
£ Retorna un cero si no lo encuentra. 


£ delimita el tramo donde buscar 3 
£ delimita el tramo donde buscar 3 
£ indica el elemento a observar 3 


£ mientras haya donde buscar: > 
while (Primero <= Ultimo) and not Ok do 


EnMedio:= (Primero + Ultimo) div 2; 
if Tabla [EnMedioJ] < Num then Primero:= EnMedio + 1 


if Tabla [EnMedioJ > Num then Ultimo := EnMedio - 1 


if Ok then Posicion:= EnMedio else Posicion:= O 


í se empieza con toda la lista 3 


exacta de un escalón es posible utilizar 
una exploración dicotómica. 

Supongamos que sabemos que en 0 los 
cambios de signo son 3, que en 10 son 2 
y que, por tanto hay una raíz simple 
entre medias. En primer lugar, observaría- 
mos los cambios de signo que se produ- 
cen en el punto intermedio 5; si éstos fue- 
sen 3, llegaríamos a la conclusión de que 
el escalón se encuentra entre 5 y 10, por 
lo que el siguiente punto a explorar sería 
7, 5, etc. Con diez evaluaciones sucesi- 
vas de los cambios de signo, el intervalo 
inicial de 10 unidades se vería reducido 
a uno de 0,01, aproximadamente. 

Al ser números reales, el proceso de es- 
trechamiento del cerco en torno a una 
raíz en teoría podría seguir indefinida- 
mente; por tanto, habría que poner 
como condición para acabar la búsque- 
da el que el tamaño del intervalo fuese 
menor que una cierta cantidad, canti- 
dad que no ha de ser menor que los po- 
sibias errores de redondeo con variables 
reales para evitar que, por esta causa, 
nunca se cumpla la condición. 

Veamos qué procedimientos añadir al 
programa de Sturm para permitir la bús- 
queda automática de raíces: 


Localiza las raices reales en un intervalo dado, de menor a mayor 


Error = 3e-10; ( máximo intervalo admisible, en tanto por 


var 
Izquierda, 

Derecha, 

Pie_De_Escalon, 

Raiz real; 


Cambios_Izquierda, 
Cambios_Derecha, 
integer; 


function X_CON_ESCALON: real; 

AAA A e e > 

í Busca X de primer escalon empezando por Izquierda, por dicotomía > 
Cierra el cerco entre Izquierda y Pie_de_Escalon. 


var X:real; Cont: byte; 

begin 

Pie_De_Escalon := Derecha; 

Cont := 0; 

repeat 
X ¿= (Izquierda + Pie_De_Escalon) / 2.0; 
if Cambios_de_Signo (S,X) < Cambios_Izquierda then Pie_De_Escalon:= 

else Izquierda 1= 


Xx 
X; 


Cont 2= Cont + 1; 
until ((Pie_DeEscalon - Izquierda) < Error * abs (X)) 
E t esto puede dar problemas cuando una raiz > 
í sea cero, por eso está el contador: > 
or (Cont = 100); £ 100 es suficiente, pues 2100 = 1.26e30 > 
X_Con_Escalon := X 


writeln (*DEFINICION DE INTERVALO DE BUSQUEDA: ”): writeln: 
write ("Límite inferior = ?”); readln (Izquierda); 

write ("Límite superior = ”); readln (Derecha); 

writeln; 


Cambios_Izquierda:= Cambios_de_Signo (S,Izquierda); 
Cambios_Derecha := Cambios_de_Signo (S,Derecha); 


writeln (*Desnivel entre —-infinito e izquierda = ”, 
Cambios_en_Infinito (S,-1) - Cambios_Izquierda); 

writeln (*Desnivel en intervalo 7 
Cambios_Izquierda - Cambios_Derecha); 

writeln (*Desnivel entre derecha y +infinito =”, , 
Cambios Derecha - Cambios en Infinito (S.+1)): 

writeln; 


while Cambios_Izquierda > Cambios_Derecha do 
begin 
Raiz := X_con_Escalon; 
Salto:= Cambios_Izquierda - Cambios_de_Signo (S, Pie_De_Escalón); 


writeln (”X ="* ,Raiz); 
writeln ("Salto = ”,Salto); 
writeln ("P(X) = ” Valor (S[OJ,Raiz)); 
writeln; 
ft recorta intervalo por izquierda: > 

Izquierda ¿= Pie_De_Escalon; 
Cambios_Izquierda := Cambios_Izquierda - Salto 
end; 


write ("Pulse Intro para seguir.”);3 readlin 
end; 


“0 PASCAL 


La parte principal del programa debe ser modificada para ampliar las opciones 
del menú: 


begin 

repeat 

waiteln; 
writeln ( - Introducir polinomio.”); 
writeln ( Mostrar Secuencia de Sturm.”); 
writeln ( Búsqueda de raíces.”); 
wr1iteln ( Búsqueda automática.”*); 
writelin ( Salida del programa.”); 
writeln; 
write (*ESCOJA OPCION: *); readln (Ca); 
witeln; , 


case Ca of 


*1*7: begin ¿ entrada de datos 3 
Lee_Pol tPol, ”>P*); 
Obtener_Secuencia (Pol, Sec) 
end; 


22%: for 1 := 0 to Pol.Grado do í mostrar secuencia de Sturm > 
begin 
WET EMT (52 A STA 
Saca_Pol (Sectil, *”S”); 
writeln; 
write ("Pulse Intro para seguir”); readln 
end; 


begin í Búsqueda de raices )> 
writeln ("Número de cambios de signo en — infinito = ”, 
Cambios_en_Infinito (Sec, -1)); 
writeln ("Número de cambios de signo en + infinito = ”, 
Cambios_en_Infinito (Sec, +1)); 
repeat: 
writeln; 
write (*X = *); read (X); 
for 1:=0 to Pol.Grado do 
begin 
writeln; 
write (?S[”,ií,*1J= ”,Valor (Sectlil, X)) 
end; 
writeln (?” NUMERO DE CAMBIOS DE SIGNO = ?, 
Cambios de Signo (Sec, X)): 
writeln; 
write (*¿Desea seguir? (S/N) ”)3 readln (Ca); 
until (Ca = ”N”) or (Ca = *"nm”) 
end; 


47: Busca_Raices(Sec) 


end; 


until Ca = *5” 


end. 


